on CALCOLA_DIMENSIONI
  -- setwindow topwindow() --  opzionale
  open wd "PALDIM" -- apre la nuova paletta
  put the width of the target into w -- calcola la base dell'oggetto e pone il risultato nella variabile "w"
  put the height of the target into h -- calcola l'altezza dell'oggetto e pone il risultato nella variabile "h"
  put w&" x "&h into cd fld 1 of wd "PALDIM" -- visualizza il risultato nel campo 1 della wd "PALDIM"
end CALCOLA_DIMENSIONI